|
44
|
How do I enable the cross link support ( rectangular )
OBJECT element,elements,link,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,76);
element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>C",-76,32);
_ObjectSetProperty( element , "AutoSize", 0);
_ObjectSetProperty( element , "Height", 32);
element = _ObjectCallMethod( elements , "Add", "Element <sha ;;0>D",76,32);
_ObjectSetProperty( element , "AutoSize", 0);
_ObjectSetProperty( element , "Height", 32);
links = _ObjectGetProperty( swimlane , "Links");
link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectSetProperty( link , "StartPos", 1);
_ObjectSetProperty( link , "EndPos", 1);
link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
_ObjectSetProperty( link , "StartPos", 1);
_ObjectSetProperty( link , "EndPos", 1);
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"));
link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
_ObjectSetProperty( link , "StartPos", 0);
_ObjectSetProperty( link , "EndPos", 2);
_ObjectSetProperty( swimlane , "ShowLinks", 33);
|
|
43
|
How do I show a link frmo bottom to top, or reverse, not from left to right
OBJECT elements,link,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",0,64);
links = _ObjectGetProperty( swimlane , "Links");
link = _ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectSetProperty( link , "StartPos", 1);
_ObjectSetProperty( link , "EndPos", 1);
|
|
42
|
Is it possible to control the links, so that they are always centered
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectSetProperty( swimlane , "ShowLinks", -1);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(0) = 1");
_ObjectCallMethod( swimlane , "Arrange", );
|
|
41
|
What options to align the elements do I have if I use Arrange method
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "ShowGridLines", -1);
elements = _ObjectGetProperty( swimlane , "Elements");
h1 = _ObjectGetProperty( _ObjectCallMethod( elements , "Add", "Top Alignment") , "ID");
_ObjectCallMethod( elements , "Add", "Element");
_ObjectCallMethod( elements , "Add", "Element");
_ObjectCallMethod( elements , "Add", "Element");
h2 = _ObjectGetProperty( _ObjectCallMethod( elements , "Add", "Center Alignment","",96) , "ID");
_ObjectCallMethod( elements , "Add", "Element","",96);
_ObjectCallMethod( elements , "Add", "Element","",96);
_ObjectCallMethod( elements , "Add", "Element","",96);
h3 = _ObjectGetProperty( _ObjectCallMethod( elements , "Add", "Bottom Alignment","",178) , "ID");
_ObjectCallMethod( elements , "Add", "Element","",192);
_ObjectCallMethod( elements , "Add", "Element","",192);
_ObjectCallMethod( elements , "Add", "Element","",192);
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(4)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(3)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(5)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(6)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(5)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(7)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(6)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(8)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(6)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(7)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(9)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(10)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(9)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(11)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(10)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(12)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(10)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(11)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(3) = 0");
_ObjectCallMethod( swimlane , "Arrange", h1);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(3) = 1");
_ObjectCallMethod( swimlane , "Arrange", h2);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(3) = 2");
_ObjectCallMethod( swimlane , "Arrange", h3);
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
40
|
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod( swimlane , "Arrange", );
|
|
39
|
Is it possible to change the distance between elements, when calling the Arrange method
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(1) = 0");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(2) = 0");
_ObjectCallMethod( swimlane , "Arrange", );
|
|
38
|
How do I organize vertically the elements
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A") , "ID", "A");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B") , "ID", "B");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element C") , "ID", "C");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element D") , "ID", "D");
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`A`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`D`)"));
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`B`)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(`C`)"));
_ObjectSetProperty( swimlane , "ShowLinksType", 2);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefArrange(0) = 1");
_ObjectCallMethod( swimlane , "Arrange", );
|
|
37
|
How can I add programatically a link
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",96,24);
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
|
|
36
|
How do I get the link from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION swimlaneEvents_MouseMove(OBJECT swimlane, INT Button, INT Shift, INT X, INT Y)
l = _ObjectCallMethod(swimlane, "ExecuteTemplate", "LinkFromPoint(-1,-1)");
Message( l );
END
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>A");
_ObjectCallMethod( elements , "Add", "Element <sha ;;0>B",96,24);
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(2)"));
|
|
35
|
Is there a way to create a link which has the same start and end element
OBJECT elements,links,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectCallMethod( elements , "Add", "Element");
links = _ObjectGetProperty( swimlane , "Links");
_ObjectCallMethod( links , "Add", _ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"),_ObjectCallMethod(swimlane, "ExecuteTemplate", ".Elements.Item(1)"));
|
|
34
|
How can I show the pool's caption not-rotated or mirrored
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 4);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -150,-150,300,150);
_ObjectSetProperty( pool , "HeaderCaptionSupportRotate", 0);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(0) = 48");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(2) = 48");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 3");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
33
|
How can I prevent creating sub-lanes or sub-phases
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectSetProperty( swimlane , "AllowDesignHeader", 4);
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -150,-150,300,150);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(0) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(2) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 3");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
32
|
How do I show a complete frame/border around the header
OBJECT lanes,pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -150,-150,300,150);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(1) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(3) = 32");
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children");
_ObjectSetProperty( lanes , "Count", 3);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lanObj")
_ObjectCallMethod(swimlane, "TemplatePut", lanes)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(1).Header.Pattern.Type = 768");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
31
|
How do I show a complete frame/border around the lane
OBJECT lanes,pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -150,-150,300,150);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(1) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(3) = 32");
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children");
_ObjectSetProperty( lanes , "Count", 3);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lanObj")
_ObjectCallMethod(swimlane, "TemplatePut", lanes)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(1).Pattern.Type = 768");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
30
|
How can I define sub-lanes
OBJECT lanes,pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -150,-150,300,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(1) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(3) = 32");
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children");
_ObjectSetProperty( lanes , "Count", 3);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lanObj")
_ObjectCallMethod(swimlane, "TemplatePut", lanes)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(1).Children.Count = 2");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
29
|
How can I add default lanes when the user creates a new pool
// AddPool event - A new pool has been added to the surface.
FUNCTION swimlaneEvents_AddPool(OBJECT swimlane, OBJECT Pool)
' Pool.HeaderSize(1) = 24
' Pool.HeaderVisible(0) = False
' Pool.HeaderVisible(1) = True
' Pool.HeaderVisible(2) = False
' Pool.HeaderVisible(3) = False
' Pool.Lane(1).Children.Count = 2
END
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,250);
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
28
|
How do I prevent showing headers when the user creates new pools
// AddPool event - A new pool has been added to the surface.
FUNCTION swimlaneEvents_AddPool(OBJECT swimlane, OBJECT Pool)
OBJECT pool;
pool = Pool;
END
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Pools.Add(-100,-100,250,250).Lane(0).Children.Count = 3");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
27
|
How can I display icons on headers
OBJECT lanes,pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod( swimlane , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderVisible(0) = False");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderVisible(2) = False");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderVisible(3) = False");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(1) = 24");
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children");
_ObjectSetProperty( lanes , "Count", 3);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lanObj")
_ObjectCallMethod(swimlane, "TemplatePut", lanes)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(0).Header.Caption = `<img>1</img> A`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(1).Header.Caption = `<img>2</img> B`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(2).Header.Caption = `<img>3</img> C`");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
26
|
How do I change the Lane and Phase strings being displayed on the lanes
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefPoolHeaderCaptionFormat(True) = `<fgcolor 808080>Faza <off -4><b><font ;6>%i`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "DefPoolHeaderCaptionFormat(False) = `<fgcolor 808080>Culoar <off -4><b><font ;6>%i`");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -100,-100,250,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 3");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 3");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Item(1).Header.Caption = `<fgcolor FF0000><b>NEW`");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
25
|
How can I enlarge the node while AutoSize property is True (method 2)
OBJECT element,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
element = _ObjectCallMethod( _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element",0,0) , "Copy", );
_ObjectSetProperty( element , "Caption", "Enlarged Element");
_ObjectSetProperty( element , "InflateSize", 16);
|
|
24
|
How can I enlarge the node while AutoSize property is True (method 1)
OBJECT element,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
element = _ObjectCallMethod( _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element",0,0) , "Copy", );
_ObjectSetProperty( element , "Caption", "Enlarged Element");
_ObjectCallMethod(swimlane, "TemplatePut", "Dim eleObj")
_ObjectCallMethod(swimlane, "TemplatePut", element)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "eleObj.Padding(-1) = 16");
|
|
23
|
How can I get the lane of the element
OBJECT element,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Pools.Add(-150,-150,500,250).Lane(0).Children.Count = 3");
element = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element");
_ObjectCallMethod( element , "CenterOnLane", 0);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim eleObj")
_ObjectCallMethod(swimlane, "TemplatePut", element)
lane = _ObjectCallMethod(swimlane, "ExecuteTemplate", "eleObj.LaneID(False)");
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lane")
_ObjectCallMethod(swimlane, "TemplatePut", lane)
Message( _ObjectCallMethod(swimlane, "ExecuteTemplate", ".LaneByID(lane).Header.Caption") );
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
22
|
How can I define a different shape for elements
// AddElement event - A new element has been added to the surface.
FUNCTION swimlaneEvents_AddElement(OBJECT swimlane, OBJECT Element)
OBJECT element;
element = Element;
END
OBJECT appearance,element,elements,swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
appearance = _ObjectGetProperty( swimlane , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwH" +
"IERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIg" +
"DZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyOR" +
"MiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQ" +
"cgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJl" +
"EEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD" +
"4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm" +
"0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK4" +
"3AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEW" +
"Tg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwH" +
"IERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrL" +
"MIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw" +
"3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEI" +
"ExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5" +
"FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkO" +
"gOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQi" +
"UZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh" +
"3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkK" +
"Sh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg=");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyD" +
"CEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4" +
"ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXI" +
"tCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEc" +
"GQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoS" +
"iUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQ" +
"gsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJi" +
"iR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGA" +
"hnECw+H2BwhkmSg7kMMIqHyb49hAECAg=");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSF" +
"IcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHol" +
"TbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRh" +
"eC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEU" +
"GgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJ" +
"FQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4b" +
"gWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAki" +
"sAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQw" +
"Oj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvks" +
"Vp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFF" +
"wJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgR" +
"CjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg");
_ObjectCallMethod( appearance , "Add", 5,"gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoR" +
"ioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiX" +
"JgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh" +
"8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2" +
"BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5" +
"E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G" +
"5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA" +
"4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5" +
"MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2" +
"b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNH" +
"wDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Rectangular",0,0) , "Shape", 0);
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Round",82,0) , "Shape", 1);
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Rhomb",138,0) , "Shape", 2);
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Circle",196,0) , "Shape", 3);
element = _ObjectCallMethod( elements , "Add", "EBN 1",0,36);
_ObjectSetProperty( element , "BackColor", 16777216);
_ObjectSetProperty( element , "Border", -1);
element = _ObjectCallMethod( elements , "Add", "EBN 2",54,36);
_ObjectSetProperty( element , "BackColor", 33554432);
_ObjectSetProperty( element , "Border", -1);
element = _ObjectCallMethod( elements , "Add", "EBN 3",108,36);
_ObjectSetProperty( element , "BackColor", 50331648);
_ObjectSetProperty( element , "Border", -1);
element = _ObjectCallMethod( elements , "Add", "EBN 4 ",160,36);
_ObjectSetProperty( element , "BackColor", 67108864);
_ObjectSetProperty( element , "Border", -1);
element = _ObjectCallMethod( elements , "Add", "EBN 5 ",220,36);
_ObjectSetProperty( element , "BackColor", 83886080);
_ObjectSetProperty( element , "MinHeight", 64);
_ObjectSetProperty( element , "MinWidth", 64);
_ObjectSetProperty( element , "Border", -1);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ScrollPos(False) = -160");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
21
|
Is it possible to add an inner control on the surface
// OleEvent event - Occurs once an inside control fires an event.
FUNCTION swimlaneEvents_OleEvent(OBJECT swimlane, OBJECT Element, OBJECT Ev)
Message( Ev );
END
OBJECT element,elements,swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
elements = _ObjectGetProperty( swimlane , "Elements");
element = _ObjectCallMethod( elements , "Add", "activex hosting");
_ObjectSetProperty( element , "Type", 2);
_ObjectSetProperty( element , "Control", "Forms.CommandButton.1");
_ObjectSetProperty( element , "Caption", "Command Button");
_ObjectSetProperty( element , "Height", 64);
_ObjectSetProperty( element , "Width", 128);
_ObjectSetProperty( element , "ElementFormat", "14;^"caption^"/^"client^"");
_ObjectSetProperty( element , "CaptionAlign", 1);
|
|
20
|
How can I create a copy of the element
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
_ObjectSetProperty( _ObjectCallMethod( _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element 1",0,0) , "Copy", ) , "Caption", "Aka");
|
|
19
|
How can I define an opaque background for elements
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element 1",0,0);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element 2",16,16);
|
|
18
|
How can I show a different context-menu for all elements
// ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
FUNCTION swimlaneEvents_ActionContextMenu(OBJECT swimlane, INT Action, INT ObjectType, VARIANT ObjectID, INT CommandID, INT CommandChecked, VARIANT CommandCaption, VARIANT CommandValue, INT Cancel)
Message( Action );
Message( ObjectID );
Message( CommandID );
END
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ContextMenu(4) = `Item 1[id=1000],Item 2[id=2000]`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(90) = 16777215");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element 1",0,0);
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element 2",16,16);
|
|
17
|
How can I show a different context-menu for element
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
Message( _ObjectCallMethod( _ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "Element",0,0) , "InvokeContextMenu", "Item 1[id=1000],Item 2[id=2000]") );
|
|
16
|
How can I change the design-modes being shown on the control's toolbar
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "DesignModes", "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2");
|
|
15
|
How can I change the default header's background color
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 4");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 4");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(120) = 65280");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(124) = 49152");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
14
|
How can I remove the Design item from the control's toolbar, to be locked ( no-design )
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectSetProperty( swimlane , "ToolBarFormat", "-1,100,101");
_ObjectSetProperty( swimlane , "DesignMode", 0);
|
|
13
|
How can I remove/disable the Color and Display-Grid from the surface's context menu
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ContextMenu(24) = `Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elements from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the surface])`");
|
|
12
|
How can I change the element's context-menu when the user right-clicks the element
// ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
FUNCTION swimlaneEvents_ActionContextMenu(OBJECT swimlane, INT Action, INT ObjectType, VARIANT ObjectID, INT CommandID, INT CommandChecked, VARIANT CommandCaption, VARIANT CommandValue, INT Cancel)
' ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
Message( Action );
Message( CommandCaption );
END
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
ObjectAssociateEvents("swimlaneEvents", swimlane);
_ObjectCallMethod( swimlane , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( swimlane , "Elements") , "Add", "element",0,0);
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ContextMenu(4) = `Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])`");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
11
|
How do I prevent showing the context-menu when user right-clicks the surface
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "ContextMenu(24) = ``");
|
|
10
|
How do I create parent-child (tree) lanes
OBJECT lanes,pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderSize(1) = 32");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.HeaderVisible(3) = False");
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children");
_ObjectSetProperty( lanes , "Count", 2);
lanes = _ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(0).Children");
_ObjectSetProperty( lanes , "Count", 2);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim lanObj")
_ObjectCallMethod(swimlane, "TemplatePut", lanes)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(0).Header.Caption = `Phase <b>1.1`");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "lanObj.Item(1).Header.Caption = `Phase <b>1.2`");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
9
|
How do I create a pool with horizontal and lanes
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 4");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 4");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
8
|
How do I add programatically a pool with horizontal lanes
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(0).Children.Count = 4");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
7
|
How do I add programatically a pool with vertical lanes
OBJECT pool,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
pool = _ObjectCallMethod( _ObjectGetProperty( swimlane , "Pools") , "Add", -250,-150,500,250);
_ObjectCallMethod(swimlane, "TemplatePut", "Dim pooObj")
_ObjectCallMethod(swimlane, "TemplatePut", pool)
_ObjectCallMethod(swimlane, "ExecuteTemplate", "pooObj.Lane(1).Children.Count = 4");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
6
|
How can I change the toolbar's visual appearance
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( swimlane , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(148) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(149) = 16777215");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(150) = 2631720");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(153) = 23093344");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(154) = 15790320");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(155) = 27304096");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(156) = 16777215");
|
|
5
|
How can I change the toolbar's background color
OBJECT swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(149) = 16777215");
|
|
4
|
How can I fit or ensure that all elements are in the control's client area
OBJECT elements,swimlane;
swimlane = ObjectByName("AN1") ;
elements = _ObjectGetProperty( swimlane , "Elements");
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element A",-500,-500) , "BackColor", 65280);
_ObjectSetProperty( _ObjectCallMethod( elements , "Add", "Element B",500,500) , "BackColor", 255);
_ObjectCallMethod( elements , "Add", "Element C",48,24);
_ObjectCallMethod( swimlane , "FitToClient");
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
OBJECT appearance,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
appearance = _ObjectGetProperty( swimlane , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn");
_ObjectCallMethod( appearance , "Add", 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn");
_ObjectCallMethod( appearance , "Add", 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn");
_ObjectCallMethod( appearance , "Add", 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn");
_ObjectCallMethod( appearance , "Add", 17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn");
_ObjectCallMethod( appearance , "Add", 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn");
_ObjectCallMethod( appearance , "Add", 30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn");
_ObjectCallMethod( appearance , "Add", 31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn");
_ObjectCallMethod( appearance , "Add", 32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn");
_ObjectCallMethod( appearance , "Add", 33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn");
_ObjectCallMethod( appearance , "Add", 34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn");
_ObjectCallMethod( appearance , "Add", 35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(99) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(64) = 33488638");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(102) = 234881024");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(148) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(149) = 16777215");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(155) = 201326592");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(153) = 234881024");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(110) = 201326592");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(112) = 587202560");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(2) = 570425344");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(3) = 587202560");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(70) = 536870912");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(71) = 553648128");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(73) = 503316480");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(74) = 520093696");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
OBJECT appearance,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
appearance = _ObjectGetProperty( swimlane , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn");
_ObjectCallMethod( appearance , "Add", 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn");
_ObjectCallMethod( appearance , "Add", 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn");
_ObjectCallMethod( appearance , "Add", 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn");
_ObjectCallMethod( appearance , "Add", 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn");
_ObjectCallMethod( appearance , "Add", 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn");
_ObjectCallMethod( appearance , "Add", 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn");
_ObjectCallMethod( appearance , "Add", 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn");
_ObjectCallMethod( appearance , "Add", 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn");
_ObjectCallMethod( appearance , "Add", 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn");
_ObjectCallMethod( appearance , "Add", 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn");
_ObjectCallMethod( appearance , "Add", 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn");
_ObjectCallMethod( appearance , "Add", 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn");
_ObjectCallMethod( appearance , "Add", 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn");
_ObjectCallMethod( appearance , "Add", 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn");
_ObjectCallMethod( appearance , "Add", 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn");
_ObjectCallMethod( appearance , "Add", 17,"CP:16 0 0 0 1");
_ObjectCallMethod( appearance , "Add", 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn");
_ObjectCallMethod( appearance , "Add", 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn");
_ObjectCallMethod( appearance , "Add", 20,"CP:19 0 0 0 1");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(99) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(101) = 9126421");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(102) = 234881024");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(64) = 33488638");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(148) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(149) = 16777215");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(155) = 218103808");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(153) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(2) = 218103808");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(105) = 83886080");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(106) = 100663296");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(107) = 117440512");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(108) = 134217728");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(116) = 150994944");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(117) = 167772160");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(118) = 184549376");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(110) = 201326592");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(112) = 251658240");
_ObjectCallMethod( swimlane , "EndUpdate");
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
OBJECT appearance,swimlane;
swimlane = ObjectByName("AN1") ;
_ObjectCallMethod( swimlane , "BeginUpdate");
appearance = _ObjectGetProperty( swimlane , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn");
_ObjectCallMethod( appearance , "Add", 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn");
_ObjectCallMethod( appearance , "Add", 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn");
_ObjectCallMethod( appearance , "Add", 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn");
_ObjectCallMethod( appearance , "Add", 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn");
_ObjectCallMethod( appearance , "Add", 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn");
_ObjectCallMethod( appearance , "Add", 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn");
_ObjectCallMethod( appearance , "Add", 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn");
_ObjectCallMethod( appearance , "Add", 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn");
_ObjectCallMethod( appearance , "Add", 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn");
_ObjectCallMethod( appearance , "Add", 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn");
_ObjectCallMethod( appearance , "Add", 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn");
_ObjectCallMethod( appearance , "Add", 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn");
_ObjectCallMethod( appearance , "Add", 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn");
_ObjectCallMethod( appearance , "Add", 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn");
_ObjectCallMethod( appearance , "Add", 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn");
_ObjectCallMethod( appearance , "Add", 17,"CP:16 0 0 0 1");
_ObjectCallMethod( appearance , "Add", 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn");
_ObjectCallMethod( appearance , "Add", 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn");
_ObjectCallMethod( appearance , "Add", 20,"CP:19 0 0 0 1");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(99) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(101) = 9126421");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(64) = 33488638");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(148) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(149) = 16777215");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(155) = 218103808");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(153) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(2) = 218103808");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(3) = 16777216");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(105) = 83886080");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(106) = 100663296");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(107) = 117440512");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(108) = 134217728");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(116) = 150994944");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(117) = 167772160");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(118) = 184549376");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(110) = 201326592");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(102) = 234881024");
_ObjectCallMethod(swimlane, "ExecuteTemplate", "Background(112) = 251658240");
_ObjectCallMethod( swimlane , "EndUpdate");
|